home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 47
/
MOBICLIC 47.ISO
/
mac
/
DATA
/
LANGUES
/
doggy2002.cst
/
00391_Script_gestionnaires son
< prev
next >
Wrap
Text File
|
2002-09-11
|
841b
|
37 lines
-- Gestionnaires son
global nivSon, dernierSon
global pisteFondMascotte
on joueSonMP3 nom, n
if the paramCount = 1 then
n = 3
end if
if voidP(nivSon)=1 then
nivSon=[255,255,255]
end if
-- ajout Θventuel de "sons:"
if char 1 to 9 of nom <> "sons" then
if offset(":", nom) = 0 then
nom = "sons:" & nom
end if
end if
dernierSon = nom
--
put the pathName & nomDos(nom) & ".swa" into nom
put " Son jouΘ : " & dernierSon
sound playFile n, nom
-- rΘglage du niveau des autres canaux
repeat with i=1 to 3
if i<>n and nivSon[i]>102 then
sound(i).volume = 110
end if
end repeat
end joueSonMP3
on mascotteParle son
masquerPistes pisteFondMascotte+1
afficherPistes pisteFondMascotte+4
sound(3).pan = 60
jouesonMP3 son & suffixeLangue()
end